.DO Externa! 

.LSTON 

.Page 
>>>>>>>>.^ >>>>>>>>>>> >>>>>>>>>>>>> 
> 

> Nodule: Initialization 

> This module contains the routines that are responsible for 

> Initial Izing «j»idget. 
> 

> RESIDENT PROCEDURE RegTest 

> RESIDENT PROCEDURE StackTest 

> RESIDENT FUNCTION RamTest : BOOLEAN 

> RESIDENT FUNCTION EpromTest : BOOLERN 

> START PROCEDURE : Nain 
> 

> > > > >> >>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 
FIN 

.DO Internal 
.LSTON 
. Paqe 
.FIN 

.ORG $0 

IntJJecO: .DW MectorO 

lnt_Uec1: .DM Uectorl 

lnt_Uec2: .DW Uector2 

lnt_Uec3: DW UectorS 

lnt_Uec4: .DM Uector4 

lnt_Uec5: .DM UectorS 

Di 

Srp *Mrk_lo ; select I/O working register set 

Clr Sph ; initialize the stack 

Ld SpI,«Staek_Top 

Ld PO tin, «POJ03_fldr+PO_47 jOu t+Stack^l n+P 1_Rdr+MeiR_Ext 

Ld f Porto, »No t_FinenL+Not^Tes tL+Not_RdHdrH+Not-ServoRst 

Ld P2!n,«P21_ln+P22_ln+P26_ln 

Ld !Port2,«NotJStartL+Bsy+28J1ein+DrwL_Read 

Ld P3!a,«B0_7JSer+BlJ6_lo+B3_4_ldffl+B2J5_lo+Totem-Pol+ParJQff 

Ld lrE;».HIBVTE. RamBankO ; select rm bank 1 

Ld \rf,mi 

Lde gJIrE, IrE 

Inc IrE ;set next Ram adr bit 

Ld SrF,»00 

Lde §! IrE, IrE 

Ld ! rE , « . H I BVTE . $ 1000 ; save P«irF I g reqs temporar i I y 

Ld !rF,«.L0WB^<'TE. $1000 

Ld lrD,*4 ;inoMe 4 registers 

Ld lrC,«P«>rFlgO 

Start-Loop: Ldei §!!rE,§!rC 

DJnz IrD, Start-Loop 

.LSTOFF 

.DO External 

.LSTON 



.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 
> Diagnostic: Internal Ram /Register Test 



This test is used as both a diagnostic and a self test routine 
in the Widget controller. It is intended to check the internal 
functions of the 28 before allowing the controller to execute 
any code that could be potentially dangerous to the system. 

The test begins by checking working register set 0, registers 
4^5,6, and 7, then uses those registers to test the rest of the others. 

Test: fill Zeros/ fill Ones 

k := { Load Ualue > 
For I := 1 To 2 Do 
Begin 
i := 120 {128 regs: -4 i /o ports. -4 regs used in test } 
j := 127 i Highest register address > 
Uhile < i > > Do 
Begin 
RamRegC j 1 := k 

} ■= } - ^ 

i := i - 1 
End { While } 
For i := 1 To 120 Do 
Begin 

If RaroRegt j J <> k Then HRLT 

J := j + 1 
End 
k := $FF { do all one's test next ) 
End { for > 



>>>>>>>>>>>>>>>>>>>>>>>>>. V >>>>>>> 


.LSTUFH 




.FIN 




.DO 


Internal 


.LSTON 




.Page 




.FIH 




Start-BegTest: 




CIr 


!r4 


Or 


Ir4, ?r4 


Jr 


Nz, .PC. 


Ld 


IrS, !r4 


Ld 


!r6Jr4 


Ld 


Ir7, !r4 


Ld 


IrS, !r4 


Rdd 


IrS, Ir4 


Rdd 


!r6Jr5 


Add 


!r?Jr5 


Rdd 


IrS, Ir? 


Jr 


liz, .PC. 


Ld 


!r4,«$FF 


Cp 


!r4.»$FF 


Jr 


Hz,. PC. 



Ld 



Ir5jr4 



; quick check 

j I oop here i f can ' t c I ear r4 

; boots trap a few registers 



j < al I zeros > 
; I 

■ M/ 

;loop here If can't bootstrap 

; quick check 

; loop here if can't set r4 

; bootstrap a fei» registers 



La 


!ro, !r4 J 




/l\ 


Ld 


!r7Jr4 




I 


Ld 


!r-8, Ir4 




I 


Rdd 


!r5.!r4 




1 ( a! ! ones > 


Add 


!r6.lr5 




1 


Add 


!r7, !r5 




1 


Add 


!r8Jr7 




\l/ 


Add 


Ir8,«5 


5*t: 


-1> + 5 = 


Jr 


Mz, .PC. 


loop 


here if can't bootstrap 



.Page 

>>>>>>>>>>>>>>>>>>>>>>> >>.v >>>>>>> 
> 

> Test the rest of the registers 

> 



RegLp 1 : 



RegLp2: 



CIr 
Ld 

Ld 
Ld 
Ld 

Ld 

Dec 

Djnz 

Ld 



Ir4 ;Load value 

!r5,*RegLpTiniies 

IrSj, !r4 ; remember load value 
! r6, «RegCoun t-RegUsed- I JORegUsed 
lr7,«H}RegAdr 



i!r7Jr4 

!r7 

fr6,RegLp2 



; beg in loading ram 
; point to new reg 



RegLpS 



! r6 , *RegCount-RegUsed- I JORegUsed 

;Read regs 

; Loop here if f a i I ure 

jset up for all ones test 



Inc 
Ld 
Cp 
•>• 


!r7 

!r4,§!r7 
!r4Jr8 
Nz, -PC. 


Djnz 


lr6,RegLp3 


Ld 
Djnz 


!r4,«$FF 
IrS, RegLp 1 


.LSTOFF 
.DO 

.LSTON 
.Page 


External 



> 



Diagnostic: Stack Test 

This test is used to test the 28 's push and pop capabilities 
as well as i fs abi I ity to perforin calls and returns. 

The stack is set to internal, and the stack top is set to 
location $80. The ensuing PUSH instruction first decrements the 
stack pointer to $7Fj, and then store the contents of the 
register being pushied In that location, fl pop Instruction 
should first load the register with the contents pointed 
to by the stack pointer and then increment the pointer. 

Registers Used: r4j r5 



>:>>>>>>>>>>>>>>>:>>>>.^ >>>>>>>>>>>> 





.LSTOFF 

.FIN 

.DO 

.LSTON 

.Page 

.FIN 


fnternal 




CIr 
Ld 


Sph 
Spl,«$80 




Ld 
Jr 


!r4.Sph 
Nz, -PC. 




Cp 
Jr 


Spl,«$80 
Nz, .PC. 




Ld 
Push 
Ld 
Jr 


!r4,«$flft 
!r4 

}r4.Sph 
Nz, .PC. 




Cp 
Jr 


Spl.#$7F 
Nz, .PC. 




Pop 

Cp 

Jr 


!r4 

!r4,«$FtfJ 
Nz, .PC. 




Ld 
Jr 


lr4,Sph 
Nz, .PC. 




Cp 
Jr 


Spl,«$80 
Nz, .PC. 


Stk_Test: 
Stk_Testt: 


Cal I 
Ld 
Cp 
Jr 


Stk_Test 
lr4.Sp! 
lr4,«$7E 
Nz, .PC. 




1 nc 
Ld 
Cp 
Jr 


!r4 

!r5.e!r4 
!r5.«StkTest 
Nz, .PC. 


StkJcilt: 


Ld 

Ret 

Jr 


ilr4,«Stk_Ret 
Stk_Halt 


StkJRet : 


CIr 
Ld 


Sph 
Spl,«Stack_Top 



; check the loading of Stack Pointer 

; Push /Pop $flfl 
; check for decrement of pointer 



; check for increment of pointer 

; check ca 1 1 capab i I i ty 

; check for doub i e dec on ca i i 



; point to low address byte 

; load low address byte 

; should be next instruction after call 



; check return capability 

;Halt if pc just got incremented 

; i n i t i a I i ze the stack 



.LSTOFF 

.DO External 

.LSTON 

.Page 

; > 

;> Initialize the i/o port control registers 

'/' 

;> POlm — > 

;> Select Port 0, Bits 0:3 = fldr Bits 8:11 

;> Select Port 0, Bits 4:7 = Output Ports 

':> Select Port 1 = fidr Bits 0:7 



Select Extended Memory Timing 
Select Internal Stack 



P2ffl — > 



Select Port 2, Bit 2 = Input 
Select Port 2, Bit 6 = Input 
fi! I other Port 2 Bits care outputs 



P3m —: 



Select 
Select 
Select 
Select 
Select 
Select 
Select 
Select 
Select 
Select 



Port 3, Bit = Sio Data In 



Port 
Port 
Port 
Port 
Port 3, 
Port 3, 
Port 3. 



Bit 1 
Bit 2 
Bit 3 
Bit 4 
Bit 5 
Bit 6 
Bit 7 



Tin 
Input 
Input 
Din- 
Output 
Tout 
Sio Data Out 



Sio Parity Off 

Totem-Pole outputs for Port 2 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
LSTOFF 
.FIN 

.00 Internal 

.LSTON 
.Page 
.FIN 



Ld ! PO 1ffl_l mage, »POj03_fldr+PO_47_J0ut+Stack_l n+P IJildr 

Ld !PO1mJStriach,«POJ03J0ut+PO_47J0ut+Stack_ln+P1-Tri 

Ld POImJPOIm-lisage 

Ld P2ffl, »P2 1_} n+P22_l n+P26_l n 

Ld ! P3ro_l mage, «B0_7_JSer+B 1^_l o-f-B3_^4_l dm+B2J5_l o+Totem_Po I +Par jOf f 

Ld ! P3ffi_J5tnach, »B0_7_Ser+B 1J&_I o+B3_4_l o+B2 J5_l o+To tem_Po I +Par JOf f 

Ld P3m, IP3m_lmage 

Ld IDm_Mask,«$FF-Dffl 

Ld I Start-Mask, «$FF-No t^ tar tL 

Ld lpr,«$08 ;6roupfl := 0, fl>B>C 

CIr Imr ; disallow interrupts 

CIr Irq ;c!ear any pending interrupts 

Cir DiskStat 

CIr ExcptJStat ; Recovery Off 

CIr BIkStat 

CIr RdStat 

CIr RdErrCnt 

CIr Ut-Stat 

CIr WrErrCnt 

CIr Cache. Index 

Ld Seek_Type , *flccessjO f fse t 

Ld Data-Type, «User_Type 

CIr SeekCount 

CIr SeekCount+l 



Ld I r E , « . H ! BVTE . Rw i JJq I ue ; I oad RW I /PC cy I i nder ya I ue 

Ld !»-F,«.LOI4BVTE. Ruj|_Ualue 

Ld !rC,«Hi_R««i_Req 

Ldci g!rC,§MrE 

Ldci §!rC,§»!rE 



Cir Tmr ; initialize timers 

Ld Pre1..*$3 ;l1od-64.. continues run 

Ld T1^»143 ; interrupt every 10 ras 

Or Tmr,«TlJCntEn + T1_Load" 

E i j k I udge for Z8 to do po 1 1 i ng 

Di 

Ld lmr,*Tinier1 ;a I low only Timer 1 Interrupts 

.LSTOFF 

.DO External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Initial Port Assignments 
J. 

> Port — > 

> Bits 0:3 are set to fldr 8:11 via POlm 

> Bit 4 = Servo Reset Active 

> Bit 5 = Format Enable Inactive 

> Bit 6 = 28 Test Inactive 

> Bit 7 = Read Header Inactive 

> Port 1 — > 

> Bits 0:7 ar& set to Rdr 0:7 via POlm 
> 

> Port 2 — > 

> Bit = Start Inactive 

> Bit 1 = Ecc Error inactive 

> Bit 2 = don't care { inpjt ) 

> Bit 3 = Busy Active 

> Bit 4:5 = liselOJ: Z8 <— > Mem 

> Bit 6 = don't care { input ) 

> Bit 7 = Disk Read/Write: Read 

> Port 3 — > 

> Don't Care 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

.Page 

.FIN 

Ld } Porto, *HotJServoRst+Not_FmenL+Hot_ZTestL+NotJ=idHdrH 

Ld !Port2,«Not^tartL+Bsy+Z8J1em+Dr«jL_Read 

Srp «Wrk_Sys ; context s^Mtch 

Call Clr_BankSwitch 

Or Excpt_Stat, «PwrRst ;as5ijme a power r-eset 

Ld IrZ^^.HIB^/TE. $1000 ; check saved power flags 

Ld !r3,«.L0WBVTE. $1000 

Ld i rE,«.H I BVTE. Password 

Ld !rF,«.LOMBVTE. PassWord 

Ld !r4.*4 ; check 4 bytes 

PwrRstJLp: Lde !r0,§nr2 ;get save byte 



Ldc 
Incw 


!r1,§!frE ;get a byte of password 
I!r2 


Incw 


!!rE 


Cp 
Jr 


!rO, !r1 
Nz^ Power JOn 


Djnz 


!r4,PwrRst Ip 



find ExcptJStat,#$FF-P<MrRst 

Power JOn: Ld ScrJCntr,«.HlBVTE. 2000 

Ld Scr_Cntr+1,«.L0WBVTE. 2000 

Ld PwrFlg0j,*$F0 ; initialize power-on flags 

Ld PwrF!g1,»$78 

Ld PwrFlg2,«$3C: 

Ld PwrFlg3,«$1E 

Jp Main ;go to main routine 

.LSTOFF 

.00 External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Function: External Ram Test 
> 

> This test is used as both a diagnostic and a self test routine 

> in the Widget controller. It is intended to check the external ram 

> of the controller before allowing the controller to execute 

> any code that could be potentially dangerous to the system. 
> 

> Inputs: 

> { none > 
> 

> Outputs: 

> Externa I RamTest : BOOLERM { Zero flag false i f error > 

> Test: fill Zeros/ fill Ones 



> 


k := IFF { Load Ualue > 


> 


For j := 1 To 2 Do 


> 


Begin 


> 


De.-' ScrJCntr 


> 


1 := RamSIze 


> 


RamPtr := RamSize - 1 


> 


Mhi le i <> Do 


> 


Beg i n 


> 


RamC RamPtr 1 := k 


J. 


RamPtr := RamPtr - 1 


> 


i := i - 1 


> 


End 


> 


1 := RamSize 


> 


Uhiie i <> Do 


> 


Beg in 


> 


If < RamC RamPtr] = k > Then HALT 


> 


RamPtr := RamPtr + 1 


> 


i := f - 1 


> 


End 


> 


k := $00 { do all zero's test next > 


> 

V 


End 


> 


RamSize = 2048 


> 


k = r5 



> j = r-8 

> i = r6,r7 

> RaroPtr = rfl.rB 

> scratch reg = r4 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

.Page 

.FIM 



RamTest ; 



RamLp 1 : 



RamLp2: 



RaroLpS; 



FksffiTestExit: 



Ld 
Ld 

Call 

Ld 
Ld 
Ld 
Ld 
Ld 

Lde 
Decw 
Djnz 
Djnz 

Ld 

I new 

Lde 

Cp 

Jr 

Djnz 

Djnz 

Ld 

Djnz 

Ret 



lr4,«$FF 

1 r 8 J *RamLpT j mes 

DecJScrjCnt 



;Load value 



!r5^!r4 ; remember load value 

!r7.«.L0UBVTE. RamSize 

!r6.«.HIBVTE. RamSize 

!rB,«.LOMByTE. HiRamfidr ; Initial ize Ram Ptr 

!rfl,«.H{BVTE. i HiRarofldr+RamOffset ) 



g!!rfl, !r4 
llrfl 

!r7,RaffiLp2 
lr5,RamLp2 



; beg in loading ram 

; Point to next Ram location 



!r6,«.HIBVTE. RamSize 



; Point to next Ram location to check 
;Read regs 



llrfl 

lr4,g!!rR 

!r4, !r5 

Nz, Ramies tEx i t ; Loop here if failure 

!r7jRamLp3 

!r6,RamLp3 



!r4,«$i30 
IrS^RamLpI 



;set up for all ones test 



.LSTOFF 

.00 External 

.LSTON 
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;> 

;> 

• ^ 
:> 



p 

• > 
;> 

■ > 
f 

;> 

;> 

: > 



Function: Eprom Test 

This test is used as both as diagnostic for the external eprom 
for the Midget Control I er and as a self test routine in the same 
units system firmware. 

The first location in the external eprom holds one byte that 
Is the check byte for that eprom. the check byte is calculated by 
add i ng then sh i f t i ng each byte in the eprom : 



Inputs: 



Outputs 



TopBank : BVTE { IrO } 



> EpromTest : BOOLEftN { zero flag false If error } 
> 

> ft I gor i thm : 
> 

> BEGIN 

> FOR Both Halves of the Eprom Do 

> Sum := 

> Suro := Sum + 256*Eprom[ 1 

> FOR J := 1 TO MaxEpromflddress DO 

> DecJScrJCntr 

> Sum := Sum + Eproin[ i 3 

> IF C Sum = y 

> THEN EpromTest := True 

> ELSE EpromTest := False 
> 

> {note that the check byte \s stored in the first two locations 

> of the eprom > 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 
.FIN 

Internal 





.DO 




.LSTON 




.Page 




.FIN 


EpromTest: 






Ld 


E_Lp: 


Ld 




Surap 




Call 




CIr 




CIr 




Ld 




Ld 




Ld 




J-d 




Ldc 




Com 




Rdd 




Incw 




Dec 




Ldc 




Com 




Rdd 



!r4JrO ;make a loop counter out of highaddress 

IrO; !r4 ;get bank to test 

!rO ;turn loop count back into highaddress 

LookUp_Rom ; select that bank 

!r6 ;Sum := 

!r? 

!r8.«.HlBYTE. EpromSIze 

lr9>.L0WBVTE. EpromSize 

!rC,«.HIBVTE. EpromOffset 
!rD,«.L0l4BVTE. EpromOffset 

!rO,§!!rC ;get EpromE J 

!rO 

IrSJrO ;Sum := Sum + 255*Eprom[ 1 

MrC ; point to Eprom [ 1 3 
Ir9 ; account for Eprom I ] 

!rO.§! ?rC ;get Eproml 1 3 

!rO' 

!r7, IrO ;Sum := Sum + Eprom [ 1 1 

I new n r5 ; do tujo * s comp I emen t ar i thme t i c 

Incw HrC ;point to EpromE 2 3 
Dec !r9 ; account for Eprom [ 13 

Eprom_Lp: Call DecJScrJCntr 

Ldc IrO^eilrC ; get EpromE i 3 

I new I !rC 

Add Ir?, !rO ;Sum := Sum ^ EpromE i 3 

fide !r6^*0 

Djnz !r9,Eprom_Lp 



Eprom_End : 



Djnz 
Jr 

Djnz 

Jp 



! r8, EpromJLp 
Nz^Eprom^nd 

!r4,E_Lp 

Bank_Ret 



.LSTOFF 

.DO External 

.LSTON 

-Page 



Procedure : lisUa i t 

This procedure is used as a software timing loop^ where 

the busy wait length is equal to .01 * InputUalue in seconds. 

( one unit wait = 10 ms ). 



Inputs: 



WaitLength : WORD { ! !r2 } 



Outputs: { none } 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIH 

.DO Internal 
.LSTON 
.Page 
.FIN 



MsWait: 
MsWait_1: 
MsUa i t_Lp : 



risWaitJ3ec: 



Ld 
find 

Tm 
Jr 

Dec 
Jr 

Push 

Push 

Cat! 

Pop 

Pop 

Ld 

Decw 
Jr 

Ret 



Ir0,*10 ; change LED every 100 ms 
lrqj,*$FF-Tiiner1 ; clear any pending time* 

[rq^^Timerl ;u>a it for timer int 
Z,risWaitJ_p 

IrO 

Nz.lisWa it-Dec 

Ir2 ;save counter 

!r3 * 

Invert-Led 

fr3 

!r2 

Ir0,«10 

I !r2 ; count down a unit 
Nz,MsWait_1 



Dec_ScrJCntr: 



Tro I r q J, *T i mer 1 ; y^a i t for t i mer i n terrup t 

Jr Zj,Dec-jScr_End 

Call InvertJLed 

find lrqj,»$FF-Tlffier1 ;get rid of old interrupt 

Ld !rO,ScrJCntr ; check for already zero count 

Or lrO^ScrJCntr+1 

Jr Zj, Dec JScr_End 



Dec_Scr-_End : 



Decw 
Ret 



ScrJCntr 



Clr-BankSwitch: Ld 
Ld 



Clr-_B_Lp: 



Ld 
Lde 
Inc 
Djnz 

Ld 

find 

Call 

Ld 
Call 
Ret 



!r2,«.HIBVTE. BankReg 

!r3,«.L0MBVTE. BankReg 

!r-1^*7 ;clear 7 bits 

e!!r2, !r2 

!r2 ;next bit's adr is $100 above last one 

!r1,C!r_B_Lp 

!rO,Excpt_JStat ;cl ear all but LED state 

!rO,«$FF-Led_riask 

Set-Led 

!rO,«Rain1 
Set_RamBank 



.LSTOFF 

.DO External 

.LSTON 
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Start-Procedure: Main 

Inputs: { none ) 

Outputs: { none ) 

ft I gor i thro : 

BEGIN 
SIfTst-fJesult := { assume all tests fall ) 
SIfTst-Result.RamTest := RamTest 
S I f Ts t_Piesu 1 1 . EpromTes t : = EpromTes t 
lnit_ExtStack 
ZeroBlock< Readftrray > 
ClearStatus 

Load_PassMord< MBIkFence ) 
Self Test 

IF system passed self test 
THEN 

Recovery is turned ON 
LoadJSprTb! 
LoadJCache 

IF SysteroCode THEN Scan 
ELSE Recovery is turned OFF 
C.lr_Bsy< Ini t_Response^ Not< Cmnd_Pendinq > 
END 

->>>>>:>>>>>>>>>>>>>>>.>>>>:>>>>.>> 
LSTOFF 

.FIN 

.DO Internal 

.LSTON 

.Page 

• FIN 
>>>>>>>>>>>>>:>> .^ >>>:>>>>>>>>>> > 

mm 



flain: 



Ld 





Call 

Jr 

find 


Ma i n-Eproin : 


Ld 
Call 
Jr 
find 


Hain_SelfTst: 


Call 




Ld 

Ld 

Call 




Call 




Call 


Main l.dSpr: 


Tm 
Jr 
And 
Jr 


Main^et_R: 


Or 




Call 


Main-Cache: 


Call 




Call 


Main \p]: 


Call 
Call 




Ld 
Clr 


-• 


\ / 



SlfTst_Resull,*$FF ; assume all failures at first 

RaroTest ;test external ram 

Nz^Main_Eprom 

S I f Tst_Resu 1 1 , «$FF-Ram_Fa i I 

!rO^*Eproin2 

EpromTest ;test external eprom bank 0^1 

Nz.MainJSelfTst 

S I f Tst_f!esu 1 1 , «$FF-Eprom_Fa i I 

Ex tS tk-Uec tor ; I n i t ex terna I s tack 

!rE.«.HlBYTE. MBIkFence 
! rF , « . LOWBVTE . UB I kFence 
LdPw_Uector ;set write buffer fence 

C I r S ta t _Uec tor ; c I ear all s to tus ' 

S I f Ts t_Uec tor ; per form se I f tes t 

S I f Tst_Resu 1 1 , «$FF-No^prTb I 

2,Main_Set_R 

ExcptJStat^«$FF-Recovery ;THEN Recovery is off 

Ha i n_Lp 1 

ExcptJStat,*Recovery ;ELSE it is ON 

SprTbl-Uector 

LC—Uector 

IScanJJector 

Clr_BankSwitch 
Se t-Seeklieeded 

I4rk_l o+$fl, * I n i t_Besponse 

l4rk_lo+$B ;Cmnd_Pending^ IBsy := False 

; in- line code, miist be folloiued by Clr_£sy 



LSTOFF 



